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/* THE THREE MAIN DATA TYPES OF ACCFG: CNODE, PROCESS, and THREAD. 
MAIN DATA TYPE OF SCFG IS SNODE, 

cnode = node in the acyclic concurrent control-flow graph (accfg) 
snode = node in the sequential control-flow graph (scfg) V 

/* The properties of a cnode are defined as follows: V 

cnode : : pthreads ; /* Threads to which this cnode belongs (''parents Most 
nodes belong to exactly one thread. The exceptions are join nodes, which belong to each 
thread they join, and the topmost process, which belongs to no thread, */ 

/* A 'predecessor" is a (snode, condition) pair that will be used as the source and label 
respectively of an added arc. Each predecessor is an snode that could run a cnode */ 

cnode : : runningPredecessors ; /* set of normal snodes */ 
cnode : : restart Predecessor ; /* restart snode */ 

/* The distinction between the two types of predecessor (i.e., ''running'* and "restart'*) is 
used in the "suspend any running thread in process p " routine, which avoids creating 
save state nodes for restart nodes, */ 

cnode : : index ; /* integer index of the node, (topological order number) V 

cnode :: state ; /* Possible states are: Running, Runnable, or Suspended. Only a 
"process " can be in a "Running** state, which means it contains a thread which is 
actively executing. */ 
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/* A Process is a cnode (and therefore inherits the properties of a mode) that 
corresponds to a fork node and contains one or more threads. 

A process 's state may be Suspended, Runnable, or Running. 

A Suspended process is contained in a thread that is not running. 

A Runnable process is contained in a thread that is running, but none of the 
threads contained in the process are running. A Runnable process is ready to restart one 
of the threads it contains. 

A Running process means one of its contained threads is currently running (i.e., 
executing instructions). 

Suspending the running thread within a process changes the process *s state from 
Running to Runnable. This is typically followed by starting (or restarting) another 
thread, contained within the process, which changes the process s state from Runnable 
back to Running. This suspension of one thread and the starting (or restarting) of 
another thread is also known as a ''context switch. " 



The properties of a process and a thread are as follows. */ 

process : : threads ; /* The threads contained in the process V 

process : : runningThread; /* Indicates which, if any, of the threads contained in 
the process is the currently running thread. V 

thread : : process ; /* Which process contains this thread V 

thread : : cnodes ; /* The cnodes in this thread that could be executed next */ 



thread : : stateVariable ; /* State variable used for saving the state of the thread 
when the thread is suspended. This state variable is subsequently read when the thread is 
resumed. V 
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/* INITIALIZATION: Create the outermost process and a single thread within in. Put the 
first scheduled node in this thread. The thread starts out suspended; the first iteration of 
the main loop will resume it. */ 

en = create the SCFG entry node; 

op = create the outermost process; 

op. state = Runnable; 

op . runningThread = none ; 

op . runningPredecessors += (en, -) ; /"^ Entry node ''en'* is made to be 
the runningPredecessor of "op and the edge from op to en has no label as indicated by 
the hyphen */ 

op . pthreads = empty /* By definition, the outermost process is not in a thread, V 
op. restartPredecessor = empty; 
tt = new thread; 
op. threads += tt; 
tt. process = op; 

fn = first node in the schedule; 

/* Set the state variable used by the outermost thread V 
tt . stateVariable = fn. index 

tt.cnodes += fn; 

f n . pthreads + = 1 1 ; /* Put the first node in the top thread */ 
fn. state = Suspended; 
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/* MAIN LOOP: successively assigns to current node ''cn " each cnode of the input accfg 
in order of the topological sort, */ 

for each node on in scheduled order { 

sn = copy node cn and its expression into the SCFG; 
th = first thread in cn.pthreads; /"^ Thread of this node V 

/* Rest of this loop is divided into four main code blocks labeled A, B, C and D. 
For each cnode assigned to cn, a code block from A or B, and a code block 
selected from C or D, is executed. 

The pair of code blocks selected for execution depends on the type of the cnode, 
and is illustrated by the following table: 

cnode type: Normal Fork Join 

selection from AorB: B B A 
selection from CorD:D CD 

if( cn is a join node ) { 
/"^ CODE BLOCK A V 

/* Earlier, this join node would have been placed in all of the threads it 
was joining. Run it in its parent's thread, */ 
p = th. process ; 

th = thread in p.pthreads; /"^ unique since this is a process V 

switch to thread th; 

suspend any running thread in p; 

run cnode p as snode sn; 

th . cnode s - = p ; /* Delete the now-terminated process V 

} else { /'^ cnisa Normal or Fork node V 
CODE BLOCK BV 
switch to thread th; 
run cnode cn as snode sn; 

/* We*ve run cn, so it no longer plays a role in the thread V 
th.cnodes -= cn; 

} 
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if ( cn IS a fork node ) { 
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process = new process; 
process . state = Runnable; 
process . runningThread = none; 

process . runningPredecessors += (sn, -) ; /"^Notethat 

edge from * process " to sn has a empty label */ 

process . restartPredecessor = empty; 

th . cnodes += process ; /* Put the new process in its thread */ 

for ( each successor ens of cn ) { 

/* Create a new thread for each successor and put the successor 

node in the new thread, V 

thread = new thread; 

process . threads += thread; 

thread. stateVariable = ens. index; /"^ Set the state 

variable for thread'' to have a default value being the topological 

index of ens. */ 

thread. cnodes += ens; 

put cnode ens in thread thread; 

/* Initialize state of successor */ 

ens. state = Suspended; 

} 

} else { /* This is a Normal or Join node */ 
CODE BLOCK D V 
for { each successor ens of en ) { 
th. cnodes += ens; 
put cnode ens in thread th; 
ens , runningPredecessors += (sn, edge 
condition from cn to ens in the input accfg) ; 
} /* end 'for ( each successor ens of cn ) " */ 
} /""end ''else'' */ 

} end MAIN LOOP V 



] /* end "synthesize a scfg" */ 
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1 run cnode cn as snode sn Technology Center 21 00 

2 { 

3 for ( each node snp in cn. runningPredecessors ) 

4 add an edge from snp to sn, labeled like the 

5 predecessor edge from cn to snp; 
6 

7 if ( cn. restartPredecessor is not empty ) 

8 add an edge from cn. restartPredecessor to sn, labeled 

9 like the predecessor edge from cn to 
10 cn. restartPredecessor; 

11 

12 /* having used these predecessor edges, they should now be removed */ 

13 cn. runningPredecessor = empty; 

14 cn. restartPredecessor = empty; 

15 } 
16 

17 

18 put cnode ens in thread th 

19 { 

20 if th is not already in ens .pthreads, 

21 ens. pthreads += th; 

22 } 
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1 switch to thread th Technology Center 21 00 

2 { 

3 /* "switch to thread th " does nothing if the thread is already running. If the thread is not 

4 running, it saves the state of any already-running thread (suspends it) and restarts the 

5 desired thread, */ 
6 

7 /* If there is at least one thread above ''th, " make sure it is also running */ 

8 if ( th. process .pthreads is not empty ) 

9 /* The parent thread is unique for a process */ 

10 switch to thread th. process .pthreads ; 
11 

12 p = th. process; 
13 

14 /* If a different thread is running, suspend it */ 

15 if ( p. state == Running AND p . runningThread 1 = th ) 

16 suspend any running thread in p; 
17 

18 if ( p. state == Runnable ) { 

19 /* Restart our thread by adding a restart node and making this restart node a 

20 predecessor of each suspended node, */ 
21 

22 rn = new restart node ( th. stateVariable ); /* Build a 

23 restart node (of SCFG) which tests state of the stateVariable for thread which is 

24 to be switched to. This stateVariable needs to have been set appropriately when 

25 thread th was previously suspended. */ 
26 

27 run cnode p as snode rn; 
28 

29 for ( each cnode cn in th.cnodes ) { 

30 cn. restartPredecessor = (rn, cn. index); /*Createan 

31 edge from cn to rn whose label has the value cn. index V 
32 

33 cn. state = Runnable; 

34 } 
35 

36 p. state = Running; 

37 p . runningThread = th; 
38 

39 } /* end "if (p.state== Runnable)"*/ 
40 

41 } /* end "switch to thread th " V 
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if ( p. state == Running ) { 

/* This process has a running thread ~ suspend it */ 
p. state = Runnable; 
th = p . runningThread; 

restartNode = none ; /* Set when the restart node needs a default arc 
leading from it to suspend this thread */ 

/* Save state if there is more than one running cnode in the thread */ 
needToSaveState = true if there is more than one cnode 
in th; 

needToSaveState = false if there is not more than one 
cnode in th; 

/* Suspend each cnode in the the thread V 

for ( each cnode cn in th.cnodes ) { 

/* Suspend any running threads in a process node V 
if ( cn is a process ) 

suspend any running thread in cn; 

/* Suspend all running predecessors for this node */ 

if ( cn. runningPredecessors is not empty ) { 

if ( needToSaveState ) { 

sn = new save state node (state for this 
thread = cn. index ); /"^ Makes the expression** 
ofsn be the following assignment statement: 
th.stateVariable = cn. index. V 

for ( each snode snp in 

cn . runningPredecessors ) 

add an edge from snp to sn, labeled 
like the predecessor edge from cn 
to snp; 

cn. runningPredecessors = empty; /"^having 
used these predecessor edges, they should now be removed 
V 

p . runningPredecessors += (sn, -) ; /"^ add 
an edge from p.runningPredecessors to sn, with no label V 



ig aCCFG Into A SCFG," to S. Edwards, App. No. WKl 



"M&A For Converting A CCFG Into A SCFG," to S. Edwards, App. No. WnilfiBB. 

RECEIVED 

■^'fl"'^^' JUL 1 5 2003 

. , f /* , , , , */ Technology Center 21 00 

) else { do not save state V 

for ( each snode snp in 
cn . runningPredecessors ) 

p. runningPredecessors += (snp, take 
label from the edge cn to snp) ; 

cn . runningPredecessors = empty; /* having 
used these predecessor edges, they should now be removed 
*/ 

} end ''else 
} /* end 'Hf ( cn,runningPredecessors is not empty ) " V 
/* Rembmer the restart node if this node has a restart predecessor, */ 

if ( cn. restartPredecessor is not empty ) { 
restartNode = cn. restartPredecessor; 
/* Remove this precessor edge since it is empty */ 
cn, restartPredecessor = empty; 

} 



cn. state = Suspended; 

} /* end *Jor ( each cnode cn in thxnodes ) */ 

p . runningThread = none ; 

if ( restartNode is not none ) { 
/"^ At least one node had a restart predecessor: make sure an arc with a default 
condition is added from the restart node to handle this condition */ 
p. runningPredecessors += (restartNode, -); 

} 

} /* end if (p.state == Running) */ 

} /* end ''suspend any running thread in process p */ 
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FIG. 8C 
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FIG. 8H 
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